'd959',
e1:=1,
e2:=20000,
while e1<=400
(
  '<959>##^a',f(e2+e1,1,0),'^bAGR^eLIB</959>'/,	
  e1:=e1+1,
)